home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / programs / canonprt / install-driver < prev    next >
Text File  |  1997-03-08  |  59KB  |  1,980 lines
  1. ; $VER: Canon Driver Disk V3.95 (08.03.97)
  2. ; Copyright (C) 1992-96 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. ;**** English text
  8.  
  9. (set #welcome
  10. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  11.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  12. ))
  13. (set #welcome-pirate
  14. (cat "\nWelcome to the Canon printer software!\n\n"
  15.     "Copyright (C) 1992-97 by Wolf Faust\n"
  16.     "Distribution by Canon Europe N.V.\n"
  17.     "\nTHIS DISK MAY NOT BE DISTRIBUTED WITHOUT\n"
  18.         "PRIOR PERMISSION IN WRITING BY WOLF FAUST\n AND/OR CANON EUROPE N.V.!\n"
  19. ))
  20. ;--------------
  21. (set #bad-kick
  22. (cat    "\nYour system software is very old. "
  23.     "You must use at least Kickstart 2.04 for all CanonDisk programs. "
  24. ))
  25. ;--------------
  26. (set #diskbased
  27. (cat "What kind of system disk are you using?"
  28. ))
  29. (set #diskbased-choices1
  30. (cat "Hard disk or similar mass storage device"
  31. ))
  32. (set #diskbased-choices2
  33. (cat "Two or more floppy drives - No hard disk."
  34. ))
  35. (set #diskbased-choices3
  36. (cat "A single floppy drive     - No hard disk."
  37. ))
  38. (set #diskbased-help
  39. (cat "\nThe Canon software requires more disk space than is available "
  40.     "on a single floppy. The installation will help users of floppy "
  41.     "systems to get enough disk space in order to install the Canon software.\n\n"
  42.     @askoptions-help
  43. ))
  44. ;--------------
  45. (set #w-studio
  46. (cat "Select the action(s) to perform."
  47. ))
  48. (set #w-studio-help
  49. (cat "\nCanonDisk is divided in two independent parts: "
  50.     "printer driver and CanonStudio print program. "
  51.     "You can now select wich parts should be un- or installed.\n\n".
  52.     @askoptions-help
  53. ))
  54. (set #w-studio-choices1
  55. (cat "Uninstall Canon drivers"
  56. ))
  57. (set #w-studio-choices2
  58. (cat "Install Canon Workbench driver"
  59. ))
  60. (set #w-studio-choices3
  61. (cat "Install CanonStudio application program"
  62. ))
  63. ;--------------
  64. (set #format
  65. (cat "\nYou need %ld empty floppy disk(s) in order to install the requested software. "
  66.     "Generate the empty floppy disk(s) by using the 'Format Disk...' Workbench "
  67.     "menu item.\n\nPlease assign name(s) (for instance \"Canon\") to the disk(s) that help you identify them later. "
  68. ))
  69. ;--------------
  70. (set #abortunpack
  71. (cat "\nError occured while running the installation decompression program. "
  72.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  73. ))
  74. ;--------------
  75. (set #abortnochoice
  76. (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  77. ))
  78. ;--------------
  79. (set #cfm-delete
  80. (cat "\n\nWarning\n\n"
  81.     "Make a backup of your system disk before deleting old drivers.\n"
  82.     "Shall I really delete all old Canon printer drivers now?\n"
  83. ))
  84. (set #cfm-delete-help
  85. (cat "\nYou may now delete old Canon drivers and their settings.\n\n"
  86. ))
  87. (set #cfm-delete-1
  88. (cat "Yes, delete."
  89. ))
  90. (set #cfm-delete-2
  91. (cat "No, continue"
  92. ))
  93. ;--------------
  94. (set #w-emul
  95. (cat "What printer do you have?"
  96. ))
  97. (set #w-emul-help
  98. (cat "\nThis disk includes several printer drivers for various "
  99.     "Canon printers. "
  100.     "In case your printer is not listed, have a look into your printers user manual for "
  101.     "finding the emulation supported by your printer.\n\n"
  102.     "NOTE: often printers support more than one emulation. "
  103.     "You may have to try several emulations to find the one "
  104.     "fitting your needs best!\n\n"
  105.     @askchoice-help
  106. ))
  107. ;--------------
  108. (set #w-driver #w-emul)
  109. (set #w-driver-help #w-emul-help)
  110. ;--------------
  111. (set #ask-sys
  112. (cat "\nIn which disk or drawer should the Canon printer driver be installed?"
  113. ))
  114. (set #ask-sys-help
  115. (cat "\nThis section lets you choose in which drawer or on which disk the "
  116.     "Studio printer driver should be installed. "
  117.     "The driver should normally go into the \"Printers:\" or \"devs:printers\" directory "
  118.     "of your system disk.\n\n"
  119.     @askdir-help
  120. ))
  121. ;--------------
  122. (set #yellspace
  123. (cat "\nThis installation requires >%ld bytes free on the disk \"%s\". "
  124.     "You may now delete unnecessary files using Workbench or Shell. "
  125.     "This installation script can also delete files now in order to free space. "
  126.     "You will be asked for permission before deleting each file.\n\n"
  127.     "DO MAKE A BACKUP OF YOUR SYSTEM DISKS BEFORE DELETING FILES.\n\n"
  128. ))
  129. ;--------------
  130. (set #tdel0 "Utilities/Clock")
  131. (set #tdel1 "Devs/Printers/Generic")
  132. (set #tdel2 "C/SetFont")
  133. (set #tdel3 "C/Edit")
  134. (set #tdel4 "C/Eval")
  135. (set #tdel5 "C/DiskChange")
  136. (set #tdel6 "C/FileNote")
  137. (set #tdel7 "C/Lock")
  138. (set #tdel8 "C/Search")
  139. (set #tdel9 "C/Sort")
  140. (set #tdel10 "C/MagTape")
  141. (set #tdel11 "C/MakeLink")
  142. (set #tdel12 "C/RemRad")
  143. (set #tdel13 "C/Which")
  144. (set #tdel14 "C/ChangeTaskPri")
  145. (set #tdel15 "C/Join")
  146. (set #tdel16 "System/NoFastMem")
  147.  
  148. (set #del0 "Displays the system time")
  149. (set #del1 "A generic text printer driver")
  150. (set #del2 "Defines system font")
  151. (set #del3 "A line editor")
  152. (set #del4 "Evaluate math expressions")
  153. (set #del5 "Recognize a diskchange")
  154. (set #del6 "Add/Remove filenotes")
  155. (set #del7 "Lock files from deletion")
  156. (set #del8 "Search a file")
  157. (set #del9 "Sort a file")
  158. (set #del10 "Controls tape backup devices")
  159. (set #del11 "Make a disk link")
  160. (set #del12 "Remove recoverable ram drive")
  161. (set #del13 "Shows location of CMD file")
  162. (set #del14 "Changes task priority")
  163. (set #del15 "Joins/Merges files")
  164. (set #del16 "Disables any fast memory")
  165. ;--------------
  166. (set #full-delete
  167. (cat "\nCan I delete the file '%s'?\n\n"
  168.     "The function of this program:\n\n"
  169.     "%s"
  170. ))
  171. (set #full-delete-help
  172. (cat "\nYour system disk doesn't offer the disk space required for "
  173.     "installing the printer driver. The installation program "
  174.     "can now delete files from your system disk that are often unused. "
  175.     "If you need one of the programs, you might skip deletion. "
  176.     "However, skipping might result in the installation failing "
  177.     "if not enough disk space could be freed. "
  178. ))
  179. (set #full-delete-1
  180. (cat "Yes, delete."
  181. ))
  182. (set #full-delete-2
  183. (cat "No, continue"
  184. ))
  185. ;--------------
  186. (set #tofull
  187. (cat "Your disk/device %s: still doesn't offer enough free disk space "
  188.     "for installing the printer driver. The requested installation "
  189.     "requires at least %ld bytes of free disk space.\n"
  190.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  191. ))
  192. (set #tofull2
  193. (cat "Your disk/device %s: doesn't offer enough free disk space "
  194.     "for installing the printer driver. I couldn't find "
  195.     "any unnecessary files for deletion in order to make space free. Please have a look "
  196.     "at the files stored on the disk and delete any unnecessary ones. "
  197.     "The installation requires at least %ld bytes of free disk space.\n"
  198.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  199. ))
  200. ;--------------
  201. (set #nodevice
  202. (cat "\nWarning\n\n It seems the 'printer.device' file is not "
  203.     "available in your 'DEVS:' directory. This file is required "
  204.     "for printing and always comes with your original Workbench "
  205.     "disks.\n\n"
  206.     "Please make the printer.device file available after installing the Canon software."
  207. ))
  208. ;--------------
  209. (set #nopardevice
  210. (cat "\nWarning\nIt seems the 'parallel.device' file is not "
  211.     "available in your 'DEVS:' directory. Unless you use the serial port or "
  212.     "an expansion board for printing, this file is required "
  213.     "for printing. It does come with your Workbench "
  214.     "disks. Without this file applications might be unable to access the printer port. \n\n"
  215.     "Please make the parallel.device file available after installing Canon software "
  216.     "if problems accessing the printer appear."
  217. ))
  218. ;--------------
  219. (set #noenv
  220. (cat "There is no volume/device/assign 'ENV:' available. "
  221.     "The 'ENV:' volume is usually created by your system's 'startup-sequence' "
  222.     "located in the 'S:' volume. It seems you are using a custom startup-sequence. "
  223.     "Please make sure there is an ENV: volume created by your system disk. "
  224.     "See your system and/or Canon software manual for help."
  225. ))
  226. ;--------------
  227. (set #noenvarc
  228. (cat "There is no volume/device/assign 'ENVARC:' available. "
  229.     "The 'ENVARC:' volume is usually created by your system during booting. "
  230.     "It seems you are using a custom boot procedure. "
  231.     "Please make sure there is an ENVARC: volume created by your system disk. "
  232.     "See your system and/or Canon software manual for help."
  233. ))
  234. ;--------------
  235. (set #ask-prefs
  236. (cat "\nIn which disk or drawer should the printer preferences program(s) be installed?"
  237. ))
  238. (set #ask-prefsdisk
  239. (cat "\nSelect the %ld. empty disk."
  240. ))
  241. (set #ask-prefs-help
  242. (cat "\nThis section lets you choose in which drawer or on which disk the "
  243.     "Canon printer driver preferences program should be installed. "
  244.     "These should normally go into the \"sys:prefs\" directory of your system "
  245.     "disk.\n\n"
  246.     @askdir-help
  247. ))
  248. ;--------------
  249. (set #finalmsg
  250. (cat "Your requested driver has been installed. The name of the driver is\n\"%s"
  251.     "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  252.     "The Canon driver preferences program has been saved as\n\"%s"
  253.     "\"\nand should now be used to adjust the driver to your needs.\n"
  254.     "Please adjust all settings to your printer."
  255. ))
  256. ;--------------
  257. (set #wrongdither
  258. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG.\n\n"
  259.     "Please select \"Ordered\" dithering in preferences "
  260.     "(in \"PrinterGfx\"). Always set the Workbench preferences to \"Ordered\" "
  261.     "Dithering is controlled by the Canon \"%s\" preferences program.\n"
  262.     "Also select a density above 2 and disable the color correction\n"
  263.     "I will now try to start Workbench preferences for you."
  264. ))
  265. ;--------------
  266. (set #ask-studio
  267. (cat "\nSelect the disk or drawer the 'CanonStudio' application drawer should be created in?"
  268. ))
  269. (set #ask-studiodisk
  270. (cat "\nSelect the %ld. empty disk."
  271. ))
  272. (set #ask-studio-help
  273. (cat "\nThis section lets you choose in which drawer or on which disk the "
  274.     "CanonStudio application program should be installed. "
  275.     "The program can be installed to any disk/drawer you like. "
  276.     "The selected disk should have at least 350 KByte free space.\n\n"
  277.     @askdir-help
  278. ))
  279. ;--------------
  280. (set #tofullstudio
  281. (cat "Your disk/device %s: doesn't offer enough free disk space "
  282.     "for installing CanonStudio. The requested installation "
  283.     "requires at least %ld bytes of free disk space.\n"
  284.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  285. ))
  286. ;--------------
  287. (set #pagestream
  288. (cat "\n\nDo you want to install a driver for the "
  289.     "PageStream 2.2x DTP program?\n\nNote: a PageStream 3.x CanonStudio "
  290.     "driver is shipped with the registered Version of CanonStudio."
  291. ))
  292. (set #pagestream-help
  293. (cat "\nThis disk comes with a special printer driver for the PageStream 2.x "
  294.     "program. In case you own this DTP package, you can use this faster "
  295.     "printer driver, offering a 200%% speed increase.\n"
  296. ))
  297. (set #pagestream-yes
  298. (cat "Yes"
  299. ))
  300. (set #pagestream-no
  301. (cat "No"
  302. ))
  303. (set #ask-pagestream
  304. (cat "\nIn which drawer should the PageStream V2.2 drivers (BJ2x0, or CanonBJCx00) be saved?"
  305. ))
  306. (set #ask-pagestream-help
  307. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  308.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  309.     @askdir-help
  310. ))
  311. ;--------------
  312. (set #sorry
  313. (cat "\n\nSorry, this disk does not include the requested software. "
  314.     "There simply wasn't enough disk space left for your wanted driver. "
  315.     "Please contact your dealer or the Canon Hotline and ask for a different disk "
  316.     "containing a driver for your printer."
  317. ))
  318. ;---------------
  319. (set #ask-docs
  320. (cat "\nIn which drawer should the documentation be saved?"
  321. ))
  322. (set #ask-docs-help
  323. (cat "\nThis section lets you choose in which drawer the Canon driver documentation should be saved.\n\n"
  324.     @askdir-help
  325. ))
  326. (set #abortdocs
  327. (cat "\nThis installation requires >120000 bytes free on the volume "
  328.     "where you wish to install the documentation. Please make this space "
  329.     "available and then re-install.\n\n"
  330. ))
  331. ;--------------
  332. (set docfile "Readme")
  333. ;--------------
  334. (set #waitmsg
  335. (cat "\n\n\n\nWorking. Please wait..."
  336. ))
  337.  
  338.  
  339.  
  340. ;**** German
  341. (if (= @language "deutsch")
  342. (
  343.     (set #welcome
  344.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  345.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  346.     ))
  347.     (set #welcome-pirate
  348.     (cat "\nWillkommen zur Installation der Canon-Druckersoftware!\n\n"
  349.         "Copyright (C)1992-97 Wolf Faust\nVertrieb: Canon Europe N.V.\n"
  350.         "\nDIESE DISKETTE DARF NICHT OHNE SCHRIFTLICHE ERLAUBNIS\n"
  351.         "VON WOLF FAUST ODER CANON EUROPE N.V. VERTRIEBEN WERDEN!\n"
  352.     ))
  353.     (set #bad-kick
  354.     (cat    "\nIhre System-Software ist sehr alt. "
  355.         "Sie brauchen mindestens Kickstart 2.04 für alle CanonDisk Programme."
  356.     ))
  357.     ;--------------
  358.     (set #diskbased
  359.     (cat "Auf welche Geräte wollen Sie die Canon Software installieren?"
  360.     ))
  361.     (set #diskbased-choices1
  362.     (cat "Auf eine Festplatte."
  363.     ))
  364.     (set #diskbased-choices2
  365.     (cat "2 oder mehr Diskettenstationen - Ohne Festplatte."
  366.     ))
  367.     (set #diskbased-choices3
  368.     (cat "Eine Diskettenstation - Ohne Festplatte."
  369.     ))
  370.     (set #diskbased-help
  371.     (cat "\nDie CanonDisk benötigt mehr freien  Speicherplatz als auf einer Diskette "
  372.         "vorhanden ist. Das Installationsprogramm hilft Ihnen bei der "
  373.         "Installation auf mehrere Disketten.\n\n"
  374.         @askoptions-help
  375.     ))
  376.     ;--------------
  377.     (set #w-studio
  378.     (cat "Welche Programme der Canon-Software wollen Sie installieren?"
  379.     ))
  380.     (set #w-studio-help
  381.     (cat "\nDie Canon-Software besteht im wesentlichen aus zwei von einander "
  382.         "unabhängigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
  383.         "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  384.         @askoptions-help
  385.     ))
  386.     (set #w-studio-choices1
  387.     (cat "Entfernen der Canon Treiber"
  388.     ))
  389.     (set #w-studio-choices2
  390.     (cat "Canon Druckertreiber"
  391.     ))
  392.     (set #w-studio-choices3
  393.     (cat "CanonStudio Druckprogramm"
  394.     ))
  395.     ;--------------
  396.     (set #format
  397.     (cat "\nSie benötigen %ld leere Diskette(n) um die gewünschte Software zu installieren. "
  398.         "Benutzen Sie den 'Format'-Menüpunkt der Workbench, um eine leere Diskette zu erstellen. "
  399.         "\n\nBenennen Sie die Disketten nach einem eindeutigen Namen (z.B. \"Canon\"). "
  400.     ))
  401.     ;--------------
  402.     (set #abortunpack
  403.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  404.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  405.     ))
  406.     ;--------------
  407.     (set #abortnochoice
  408.     (cat "Sie haben keine Option gewählt. Bitte starten Sie das Installations-Programm erneut\n"
  409.     ))
  410.     ;--------------
  411.     (set #cfm-delete
  412.     (cat "\n\nWarnung!\n\n"
  413.         "Machen Sie eine Sicherheitskopie, bevor Sie alte Canon Treiber löschen. \n"
  414.         "Soll ich jetzt wirklich alle Treiber löschen?\n\n"
  415.     ))
  416.     (set #cfm-delete-help
  417.     (cat "\nDas Installationsskript löscht jetzt alle alten Canon-Treiber und deren Einstellungen.\n\n"
  418.     ))
  419.     (set #cfm-delete-1
  420.     (cat "Ja, löschen"
  421.     ))
  422.     (set #cfm-delete-2
  423.     (cat "Nein, weiter"
  424.     ))
  425.     ;--------------
  426.     (set #w-emul
  427.     (cat "Was für einen Drucker besitzen Sie?"
  428.     ))
  429.     (set #w-emul-help
  430.     (cat "\nDiese Disk enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  431.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  432.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  433.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  434.         "Versuchen Sie daher ruhig mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  435.         @askchoice-help
  436.     ))
  437.     ;--------------
  438.     (set #w-driver #w-emul)
  439.     (set #w-driver-help #w-emul-help)
  440.     ;--------------
  441.     (set #ask-sys
  442.     (cat "\nIn welche Disk oder Schublade soll der Canon-Druckertreiber kopiert werden?"
  443.     ))
  444.     (set #ask-sys-help
  445.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  446.         "Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
  447.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  448.         @askdir-help
  449.     ))
  450.     ;--------------
  451.     (set #yellspace
  452.     (cat "\nDiese Installation benötigt mehr als %ld Bytes freien Speicherplatz auf der Disk. \"%s\". "
  453.         "Sie können jetzt unnötige Dateien von der Disk löschen. Sie können auch fortfahren mit der "
  454.         "Installation und das Installationsprogramm wird versuchen, unnötige Dateien zu löschen. "
  455.         "Sie werden jeweils um Erlaubnis gefragt, bevor eine Datei gelöscht wird.\n"
  456.         "MACHEN SIE EINE SICHERHEITSKOPIE IHRER DISK, BEVOR SIE DATEIEN LÖSCHEN.\n"
  457.     ))
  458.     ;--------------
  459.     (set #tdel0 "Utilities/Clock")
  460.     (set #tdel1 "Devs/Printers/Generic")
  461.     (set #tdel2 "C/SetFont")
  462.     (set #tdel3 "C/Edit")
  463.     (set #tdel4 "C/Eval")
  464.     (set #tdel5 "C/DiskChange")
  465.     (set #tdel6 "C/FileNote")
  466.     (set #tdel7 "C/Lock")
  467.     (set #tdel8 "C/Search")
  468.     (set #tdel9 "C/Sort")
  469.     (set #tdel10 "C/MagTape")
  470.     (set #tdel11 "C/MakeLink")
  471.     (set #tdel12 "C/RemRad")
  472.     (set #tdel13 "C/Which")
  473.     (set #tdel14 "C/ChangeTaskPri")
  474.     (set #tdel15 "C/Join")
  475.     (set #tdel16 "System/NoFastMem")
  476.     
  477.     (set #del0 "Zeigt die Uhrzeit an")
  478.     (set #del1 "Ein simpler ASCII-Text Druckertreiber")
  479.     (set #del2 "Definiert den Systemzeichensatz")
  480.     (set #del3 "Ein Zeileneditor")
  481.     (set #del4 "Löst mathematische Ausdrücke")
  482.     (set #del5 "FÜhrt einen Diskwechsel aus")
  483.     (set #del6 "Editieren von Dateikommentaren")
  484.     (set #del7 "Schützt Dateien vor dem Löschen")
  485.     (set #del8 "Sucht eine Datei")
  486.     (set #del9 "Sortiert eine Datei")
  487.     (set #del10 "Kontrolliert Streamer")
  488.     (set #del11 "Erzeugt Disk-Links")
  489.     (set #del12 "Entfernt die Resetfeste-Ram-Disk")
  490.     (set #del13 "Zeigt den Speicherort eines Befehls")
  491.     (set #del14 "Verändert die Task-Priorität")
  492.     (set #del15 "Verbindet Dateien")
  493.     (set #del16 "Entfernt Fast-Speicher")
  494.     ;--------------
  495.     (set #full-delete
  496.     (cat "\nKann ich die Datei '%s' löschen?\n\n"
  497.         "Aufgabe der Datei:\n\n"
  498.         "%s"
  499.     ))
  500.     (set #full-delete-help
  501.     (cat "\nIhre Systemdiskette verfügt nicht über genug Speicherplatz, um einen Druckertreiber zu installieren. "
  502.         "Das Installationsprogramm kann jetzt für Sie unnötige Dateien löschen. "
  503.         "Sie müssen nicht alle angezeigten Dateien löschen, doch kann dies dazu führen, "
  504.         "das bei zu wenig freiem Speicherplatz, die Installation nicht zu Ende geführt werden kann. "
  505.     ))
  506.     (set #full-delete-1
  507.     (cat "Ja, löschen."
  508.     ))
  509.     (set #full-delete-2
  510.     (cat "Nein!"
  511.     ))
  512.     ;--------------
  513.     (set #tofull
  514.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  515.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  516.         "die Installation des gewünschten Treibers.\n"
  517.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  518.         "erneut die Installation.\n\n"
  519.     ))
  520.     (set #tofull2
  521.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  522.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  523.         "die Installation des gewünschten Treibers. "
  524.         "Es konnten keine unnötigen Dateien zum Löschen vom Installationsprogramm "
  525.         "gefunden werden. "
  526.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  527.         "erneut die Installation.\n\n"
  528.     ))
  529.     ;--------------
  530.     (set #nodevice
  531.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'printer.device' "
  532.         "im 'DEVS:'-Verzeichnis. Diese Datei wird zum Drucken von Programmen benötigt und "
  533.         "ist Teil jeder richtigen Workbench-Diskette.\n\n"
  534.         "Bitte machen Sie die 'printer.device' Datei nach der Installation verfügbar."
  535.     ))
  536.     ;--------------
  537.     (set #nopardevice
  538.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'parallel.device' "
  539.         "im 'DEVS:'-Verzeichnis. Sollten Sie nicht über eine Schnittstellenkarte oder "
  540.         "den Seriellen-Port des Amigas drucken, wird diese Datei zum Drucken dringends benötigt. "
  541.         "Die Datei ist Teil jeder richtigen Workbench-Diskette.\n\n"
  542.         "Bitte machen Sie die 'parallel.device' Datei nach der Installation verfügbar."
  543.     ))
  544.     ;--------------
  545.     (set #noenv
  546.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  547.         "Canon Treiber speichern Einstellungen in dieser Schublade. "
  548.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  549.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  550.         "Startup-Sequence.\n"
  551.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
  552.         "neuem!\n\n"
  553.     ))
  554.     ;--------------
  555.     (set #noenvarc
  556.     (cat "\nLeider ist keine Schublade mit dem Namen \"ENVARC:\" auffindbar!\n"
  557.         "Canon Treiber speichern Einstellungen in dieser Schublade. "
  558.         "Normalerweise wird \"ENVARC:\" von der standard Startup-Sequence von "
  559.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  560.         "Startup-Sequence.\n"
  561.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
  562.         "neuem!\n\n"
  563.     ))
  564.     ;--------------
  565.     (set #ask-prefs
  566.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  567.         "(engl. Preferences) kopiert werden?"
  568.     ))
  569.     (set #ask-prefsdisk
  570.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  571.     ))
  572.     (set #ask-prefs-help
  573.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  574.         "Schublade das Canon Voreinsteller-Programm kopiert werden soll. "
  575.         "Normalerweise sollten Sie hierzu die Schublade \"SYS:Prefs\" wählen.\n\n"
  576.         @askdir-help
  577.     ))
  578.     ;--------------
  579.     (set #finalmsg
  580.     (cat "Der gewünschte Canon Treiber wurde unter dem Namen\n\"%s"
  581.         "\"\ninstalliert und sollte jetzt in dem Workbench \"Printer\"-Voreinsteller eingestellt werden.\n"
  582.         "Der Canon Treiber-Voreinsteller wurde unter dem Namen\n\"%s"
  583.         "\"\ngespeichert und dient zum Einstellen zusätzlicher Funktionen des Treibers.\n"
  584.     ))
  585.     ;--------------
  586.     (set #wrongdither
  587.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  588.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  589.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  590.         "Programms. Bitte wählen Sie auch eine Dichte größer 2 und "
  591.         "schalten Sie die Farbkorrektur in PrinterGfx ab.\n"
  592.         "Zur Erleichterung wird das Programm "
  593.         "für die Voreinstellungen jetzt versucht zu starten..."
  594.     ))
  595.     ;--------------
  596.     (set #ask-studio
  597.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das CanonStudio-Verzeichnis angelegt werden soll."
  598.     ))
  599.     (set #ask-studiodisk
  600.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  601.     ))
  602.     (set #ask-studio-help
  603.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  604.         "Schublade das CanonStudio-Schublade des Druckprogramms kopiert werden soll. Normalerweise sollten "
  605.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  606.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 350KByte "
  607.         "an freien Speicherplatz besitzen.\n\n"
  608.         @askdir-help
  609.     ))
  610.     ;--------------
  611.     (set #tofullstudio
  612.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz. "
  613.         "Zur Installation von CanonStudio sind mindestens %ld Bytes notwendig. "
  614.         "Bitte machen Sie Speicherplatz verfügbar und installieren Sie erneut.\n\n"
  615.     ))
  616.     ;--------------
  617.     (set #pagestream
  618.     (cat "\n\nWollen Sie einen Treiber für das DTP-Programm "
  619.         "PageStream V2.2x (nicht V3.x!) installieren?\n\n"
  620.         "Achtung: einen PageStream 3.x CanonStudio Treiber "
  621.         "erhalten Sie beim registrieren von CanonStudio."
  622.     ))
  623.     (set #pagestream-help
  624.     (cat "\nDie Canon-Diskette enthält auch spezielle Druckertreiber für das DTP-Programm "
  625.         "PageStream V2.2. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  626.         "mit diesen Treibern ca. 200 %% schneller drucken.\n\n"
  627.     ))
  628.     (set #pagestream-yes
  629.     (cat "Ja"
  630.     ))
  631.     (set #pagestream-no
  632.     (cat "Nein"
  633.     ))
  634.     (set #ask-pagestream
  635.     (cat "\nIn welche Schublade sollen die PageStream-Treiber (BJ2x0 oder CanonBJCx00) "
  636.         "kopiert werden?"
  637.     ))
  638.     (set #ask-pagestream-help
  639.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  640.         "Druckertreiber wählen. Normalerweise sollte die "
  641.         "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  642.         @askdir-help
  643.     ))
  644.     ;--------------
  645.     (set #sorry
  646.     (cat "\n\nLeider war auf dieser Canon Diskette nicht mehr genug Platz für "
  647.         "den von Ihnen gewünschten Druckertreiber. Der gewünschte Treiber "
  648.         "befindet sich deshalb auf einer weiteren Treiberdiskette von Canon. "
  649.         "Bitte fordern Sie einen Treiber für Ihren Drucker gesondert von "
  650.         "Ihrem Händler oder der Canon Hotline an."
  651.     ))
  652.     ;--------------
  653.     (set #ask-docs
  654.     (cat "\nIn welche Schublade soll die Treiber-Anleitung kopiert werden?"
  655.     ))
  656.     (set #ask-docs-help
  657.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die Anleitung "
  658.         "der Canon Treiber wählen.\n\n"
  659.         @askdir-help
  660.     ))
  661.     (set #abortdocs
  662.     (cat "\nDie Anleitung benötigt ca. 120000 Bytes "
  663.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  664.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  665.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  666.         "eine Installation!\n\n"
  667.     ))
  668.     ;--------------
  669.     (set docfile "Liesmich")
  670.     ;--------------
  671.     (set #waitmsg
  672.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  673.     ))
  674. ))
  675.  
  676. ; **** Texte en français
  677. (if (= @language "français")
  678. (
  679.     (set #welcome
  680.     (cat "\nIntermédiaire : les pilotes d'imprimantes sont installés sur le disque système courant.\n"
  681.         "Expert:  les pilotes d'imprimantes peuvent être installés sur un disque quelconque.\n\n"
  682.     ))
  683.     (set #welcome-pirate
  684.     (cat "\nBienvenue dans CANONDISK: la disquette de gestion\n"
  685.         " des imprimantes Canon!\n\n"
  686.         "Copyright (C) 1992-97 par Wolf Faust\n"
  687.         "Distribution : Canon Europe N.V.\n"
  688.         "\nCE DISQUE NE PEUT ETRE DISTRIBUE\n"
  689.         "SANS PERMISSION ECRITE DE WOLF FAUST\n OU DE CANON EUROPE N.V.!\n"
  690.     ))
  691.     (set #bad-kick
  692.     (cat    "\nVotre logiciel système est trop ancien. "
  693.         "Utiliser le Kickstart 2.04 ou plus récent pour tous programmes Canon  "
  694.         "accessibles à la souris. "
  695.     ))
  696.     ;--------------
  697.     (set #diskbased
  698.     (cat "Quel type de disque système utilisez-vouz ?"
  699.     ))
  700.     (set #diskbased-choices1
  701.     (cat "Disque dur ou apparenté"
  702.     ))
  703.     (set #diskbased-choices2
  704.     (cat "Deux ou plusieurs unités de disques"
  705.     ))
  706.     (set #diskbased-choices3
  707.     (cat "Une seule unité de disque"
  708.     ))
  709.     (set #diskbased-help
  710.     (cat "\nLe programme Canon nécessite davantage d'espace disque que ce qui "
  711.         "est disponible sur une seule disquette. L'installation aidera les utilisateurs "
  712.         "de systèmes à disquettes à obtenir suffisamment d'espace disque pour "
  713.         "installer le logiciel Canon.\n\n"
  714.         @askoptions-help
  715.     ))
  716.     ;--------------
  717.     (set #w-studio
  718.     (cat "Que désirez-vous installer ?"
  719.     ))
  720.     (set #w-studio-help
  721.     (cat "\nCe disque est organisé en deux parties indépendantes : "
  722.         "les pilotes d'imprimantes et le programme d'impression. "
  723.         "Choisissez maintenant ce que vous souhaitez installer!\n\n".
  724.         @askoptions-help
  725.     ))
  726.     (set #w-studio-choices1
  727.     (cat "Drivers Canon non installés"
  728.     ))
  729.     (set #w-studio-choices2
  730.     (cat "pilotes d'imprimantes Canon"
  731.     ))
  732.     (set #w-studio-choices3
  733.     (cat "logiciel CanonStudio"
  734.     ))
  735.     ;--------------
  736.     (set #format
  737.     (cat "\nVous avez besoin de %ld disquettes vides afin d'installer le logiciel requis. "
  738.         "Générez la disquette vide en utilisant l'option 'Format Disk...' du menu Workbench.\n\n"
  739.         "Donnez aux disquettes des noms (par exemple \"Canon\" qui vous aideront à les identifier ultérieurement."
  740.     ))
  741.     ;--------------
  742.     (set #abortunpack
  743.     (cat "\nErreur en cours de décompression/écriture d'un fichier ! "
  744.         "L'erreur s'est produite pendant la décompression du fichier :\n\n\"%s\"\n\n"
  745.     ))
  746.     ;--------------
  747.     (set #abortnochoice
  748.     (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  749.     ))
  750.     ;--------------
  751.     (set #cfm-delete
  752.     (cat "\n\nLes réglages de l'ancien pilote Canon peuvent-ils être effacés ?"
  753.     ))
  754.     (set #cfm-delete-help
  755.     (cat "\nVous pouvez maintenant supprimer les anciens drivers Canon et leurs paramètres.\n\n"
  756.     ))
  757.     (set #cfm-delete-1
  758.     (cat "Oui, effacer"
  759.     ))
  760.     (set #cfm-delete-2
  761.     (cat "Non"
  762.     ))
  763.     (set #w-emul
  764.     (cat "Quelle est votre imprimante ?"
  765.     ))
  766.     (set #w-emul-help
  767.     (cat "\nCe disque contient plusieurs pilotes pour différentes "
  768.         "imprimantes Canon. "
  769.         "Au cas où votre imprimante ne figurerait pas dans la liste, reportez vous à son manuel pour "
  770.         "trouver les émulations acceptées par votre imprimante.\n\n"
  771.         "NOTE : les imprimantes acceptent souvent plusieurs émulations. "
  772.         "Il vous faudra peut-être tester plusieurs émulations avant de trouver "
  773.         "celle qui convient le mieux à vos besoins\n\n"
  774.         @askchoice-help
  775.     ))
  776.     ;--------------
  777.     (set #w-driver #w-emul)
  778.     (set #w-driver-help #w-emul-help)
  779.     ;--------------
  780.     (set #ask-sys
  781.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les pilotes d'imprimantes Canon ?"
  782.     ))
  783.     (set #ask-sys-help
  784.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  785.         "installer les pilotes d'imprimantes Canon. "
  786.         "Normalement le répertoire  \"devs:printers\" du disque système.\n\n"
  787.         @askdir-help
  788.     ))
  789.     ;--------------
  790.     (set #yellspace
  791.     (cat "\nCette installation nécessite >%ld octets libres sur le disque \"%s\". "
  792.         "Vous pouvez maintenant supprimer les fichiers inutiles en utilisant les menus "
  793.         "Workbench ou Shell. Ce script d'installation peut également supprimer des "
  794.         "fichiers maintenant afin de libérer de l'espace. "
  795.         "Le système vous demandera confirmation avant de supprimier chaque fichier.\n\n"
  796.         "FAITES UNE SAUVEGARDE DE VOS DISQUES SYSTEMES AVANT DE SUPPRIMER DES FICHIERS.\n\n"
  797.     ))
  798.     ;--------------
  799.     (set #tdel0 "Utilities/Clock")
  800.     (set #tdel1 "Devs/Printers/Generic")
  801.     (set #tdel2 "C/SetFont")
  802.     (set #tdel3 "C/Edit")
  803.     (set #tdel4 "C/Eval")
  804.     (set #tdel5 "C/DiskChange")
  805.     (set #tdel6 "C/FileNote")
  806.     (set #tdel7 "C/Lock")
  807.     (set #tdel8 "C/Search")
  808.     (set #tdel9 "C/Sort")
  809.     (set #tdel10 "C/MagTape")
  810.     (set #tdel11 "C/MakeLink")
  811.     (set #tdel12 "C/RemRad")
  812.     (set #tdel13 "C/Which")
  813.     (set #tdel14 "C/ChangeTaskPri")
  814.     (set #tdel15 "C/Join")
  815.     (set #tdel16 "System/NoFastMem")
  816.  
  817.     (set #del0 "Affice l'heure système")
  818.     (set #del1 "Un driver d'imprimante texte générique")
  819.     (set #del2 "Définit la police système")
  820.     (set #del3 "Un éditor ligne")
  821.     (set #del4 "Calcule les expressions mathématiques")
  822.     (set #del5 "Détecte un changement de disquette")
  823.     (set #del6 "Ajoute/supprime les notes de fichiers")
  824.     (set #del7 "Verrouille les fichiers contre la suppression")
  825.     (set #del8 "Cherche un fichier")
  826.     (set #del9 "Tri un fichier")
  827.     (set #del10 "Contrôle les systèmes de backup sur bande")
  828.     (set #del11 "Crée une liason disque")
  829.     (set #del12 "Supprimer l'unite de RAM récupérable")
  830.     (set #del13 "Affiche la localisation d'un fichier CMD")
  831.     (set #del14 "Modifie la priorité des tâches")
  832.     (set #del15 "Joint/fusionne les fichiers")
  833.     (set #del16 "Désactive toute mémoire rapide")
  834.     ;--------------
  835.     (set #full-delete
  836.     (cat "\nLe fichier '%s' peut-il être supprimé ?\n\n"
  837.         "La fonction de ce programme :\n\n"
  838.         "%s"
  839.     ))
  840.     (set #full-delete-help
  841.     (cat "Votre disque système ne dispose pas de l'espace disque nécessaire "
  842.         "pour installer le driver d'imprimante. Le programme d'installation peut "
  843.         "maintenant supprimer des fichiers de votre disque système la plupart du "
  844.         "temps non utilisés. Si vous avez besoin de l'un de ces fichiers, vous "
  845.         "puvez annuler la suppresion. Cette annulation peut cependant provoquer "
  846.         "l'echec de l'installation si l'espace disque libéré est insuffisant."
  847.     ))
  848.     (set #full-delete-1
  849.     (cat "Qui, supprimer."
  850.     ))
  851.     (set #full-delete-2
  852.     (cat "Non, continuer."
  853.     ))
  854.     ;--------------
  855.     (set #tofull
  856.     (cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
  857.         "pour installer le driver d'imprimante. L'installation demendée nécessite au moins "
  858.         "%ld octets d'espace libre.\n"
  859.         "Aprés suppression/déplacement des fichiers, essayez à nouveau d'installer le driver.\n"
  860.     ))
  861.     (set #tofull2
  862.     (cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
  863.         "pour installer le driver d'imprimante. Impossible de trouver des fichiers à "
  864.         "supprimer pour libérer de l'espace. L'installation demendée nécessite au moins "
  865.         "%ld octets d'espace libre.\n"
  866.         "Examinez les fichiers stockés sur votre disque et supprimez ceux qui ne sont pas utiles. "
  867.         "Aprés suppression/déplacement des fichiers, essayez à nouveau d'installer le driver.\n"
  868.     ))
  869.     ;--------------
  870.     (set #nodevice
  871.     (cat "\nAttention\n\nIl semble que le fichier 'printer.device' ne soit pas "
  872.         "disponible dans votre répertoire 'DEVS:'. Ce fichier est nécessaire "
  873.         "pour imprimer et est toujours livré avec les disquettes Workbench.\n\n"
  874.         "Vous devez rendre ce fichier disponible après installation."
  875.     ))
  876.     ;--------------
  877.     (set #nopardevice
  878.     (cat "\nAttention\n\nIl semble que le fichier 'parallel.device' ne soit pas "
  879.         "disponible dans votre répertoire 'DEVS:'. A moins que vous n'utilisiez le "
  880.         "port série ou une carte d'extension. Il est livré avec vos disquettes Workbench. "
  881.         "Sans ce fichier, les applications ne peuvent pas accéder au port de "
  882.         "l'imprimante.\n\n"
  883.         "Rendez ce fichier disponible après installation de CanonDisk si des "
  884.         "problèmes apparaissent pour accéder à l'imprimante."
  885.     ))
  886.     ;--------------
  887.     (set #noenv
  888.     (cat "Il n'y a pas de volume/péripherique/assign 'ENV:' disponible. "
  889.         "Le volume 'ENV:' est généralement créé par la séquence de "
  890.         "démarrage de votre sysème localisé dans le volume 'S:'. Il semble que vous "
  891.         "utilisiez une séquence de démarrage personnalisée. "
  892.         "Assurez-vous qu'il existe un volume 'ENV:' créé par votre disque système. "
  893.         "Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
  894.     ))
  895.     ;--------------
  896.     (set #noenvarc
  897.     (cat "Il n'y a pas de volume/péripherique/assign 'ENVARC:' disponible. "
  898.         "Le volume 'ENVARC:' est généralement créé par votre système pendant l'initialisation. "
  899.         "Il semble que vous "
  900.         "utilisiez une procédure d'initialisation personnalisée. "
  901.         "Assurez-vous qu'il existe un volume 'ENVARC:' créé par votre disque système. "
  902.         "Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
  903.     ))
  904.     ;--------------
  905.     (set #ask-prefs
  906.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les préférences d'imprimantes Canon ?"
  907.     ))
  908.     (set #ask-prefsdisk
  909.     (cat "\nSélectionnez le disque vide %ld."
  910.     ))
  911.     (set #ask-prefs-help
  912.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  913.         "installer les préférences d'imprimantes Canon. "
  914.         "Normalement le répertoire  \"sys:prefs\" du disque système.\n\n"
  915.         @askdir-help
  916.     ))
  917.     ;--------------
  918.     (set #finalmsg
  919.     (cat "Le pilote que vous avez choisi est installé sous le nom de\n\"%s"
  920.         "\"\net devrait être sélectionné dans le programme de préférences du Workbench \"Printer\".\n"
  921.         "Le programme de préférences des pilotes Canon a été sauvé sous le nom :\n\"%s"
  922.         "\"\net devrait être utilisé pour modifier le comportement de l'imprimante selon vos besoins.\n"
  923.     ))
  924.     ;--------------
  925.     (set #wrongdither
  926.     (cat "\n\nATTENTION : les préférences du Workbench sont mal règlées\n\n"
  927.         "Choisir \"Estompage\" \"ordonné\" (dans \"PrinterGfx\")."
  928.         "Also select a density above 2 and disable the color correction\n\n"
  929.         " Nous allons maintenant essayer de lancer les préférences pour vous."
  930.     ))
  931.     ;--------------
  932.     (set #ask-studio
  933.     (cat "\nDans quel répertoire souhaitez-vous installer le logiciel CanonStudio ?"
  934.     ))
  935.     (set #ask-studiodisk 
  936.     (cat "\nSélectionnez le disque vide %ld."
  937.     ))
  938.     (set #ask-studio-help
  939.     (cat "\nCette section vous permet de choisir le disque ou le répertoire où "
  940.         "installer CanonStudio.\n\n"
  941.         "The program can be installed to any disk/drawer you like. "
  942.         "Le disque sélectionné doit avoir au moins 350 Ko d'espace libre.\n\n"
  943.         @askdir-help
  944.     ))
  945.     ;--------------
  946.     (set #tofullstudio
  947.     (cat "Votre disque/péripherique %s: n'a pas suffisamment d'espace disque "
  948.         "disponible pour installer CanonStudio. L'installation demenadée nécessite "
  949.         "au moins %ld octets d'espace libre.\n"
  950.         "Après suppression, déplacement des fichiers inutiles, recommencez l'installation.\n\n"
  951.     ))
  952.     ;--------------
  953.     (set #pagestream
  954.     (cat "\n\nDésirez-vous installer un pilote pour Canon "
  955.         "fonctionnant avec le logiciel de PAO PageStream 2.x (non V3) ?\n\n"
  956.     ))
  957.     (set #pagestream-help
  958.     (cat "\nCe disque contient un pilote spécialement adapté à PageStream 2.x "
  959.         "Si vous utilisez ce logiciel de PAO, vous pouvez installer ce pilote "
  960.         " qui permet d'accroître la vitesse d'impression de 200%%.\n"
  961.     ))
  962.     (set #pagestream-yes
  963.     (cat "Oui"
  964.     ))
  965.     (set #pagestream-no
  966.     (cat "Non"
  967.     ))
  968.     (set #ask-pagestream
  969.     (cat "\nDans quel tiroir souhaitez-vous installer les pilotes PageStream (BJ2x0, CanonBJCx00) ?"
  970.     ))
  971.     (set #ask-pagestream-help
  972.     (cat "\nCette section vous permet de choisir le tiroir où sauver les pilotes pour PageStream. "
  973.         "Normallement le tiroir \"Printers\" de PageStream.\n\n"
  974.         @askdir-help
  975.     ))
  976.     ;--------------
  977.     (set #sorry
  978.     (cat "\n\nce disque n'inclut pas le logiciel demandé. "
  979.         "Il n'y avait pas suffisamment d'espace disque pour le driver souhaité. "
  980.         "Contactez votre revendeur ou la Hotline Canon et demandez une "
  981.         "disquette différente, contenant un driver pour votre imprimante."
  982.     ))
  983.     ;--------------
  984.     (set #ask-docs
  985.     (cat "\nDans quel tiroir faut-il sauver la documentation ?"
  986.     ))
  987.     (set #ask-docs-help
  988.     (cat "\nCette section vous propose de choisir le répertoire où sera sauvée la documentation Canon.\n\n"
  989.         @askdir-help
  990.     ))
  991.     (set #abortdocs
  992.     (cat "\nCette installation occupe >120000 octets sur le disque "
  993.         "où vous souhaitez installer la documentation. Assurez-vous que cet "
  994.         "espace est disponible avant de ré-installer.\n\n"
  995.     ))
  996.     ;--------------
  997.     (set docfile "Readme")
  998.     ;--------------
  999.     (set #waitmsg
  1000.     (cat "\n\n\n\nInstaller travaille ! Veuillez attendre..."
  1001.     ))
  1002. ))
  1003.  
  1004. ; **** START
  1005.  
  1006. (procedure Meter
  1007. (
  1008.     (set accum    (+ accum addmeter))
  1009.     (complete (/ (* accum 100) total))
  1010. ))
  1011.  
  1012. (complete 0)
  1013. (welcome #welcome)
  1014. (complete 1)
  1015. (message #welcome-pirate)
  1016.  
  1017. (set total        0)
  1018. (set accum        0)
  1019. (set addmeter        0)
  1020. (makeassign "CanonDisk_Install" (pathonly @icon))
  1021.  
  1022. ; **** sure we are running under a 2.04 or higher ROM???
  1023. (if (< (/ (getversion) 65536) 37)
  1024.     (abort #bad-kick)
  1025. )
  1026.  
  1027. ; **** Does this system offer a hard disk?   0=HD  1=2nd floppy  2=one floppy
  1028. (set diskbased (askchoice (prompt #diskbased)
  1029.     (help #diskbased-help)
  1030.     (choices #diskbased-choices1 #diskbased-choices2 #diskbased-choices3)
  1031.     (default 0)
  1032.     )
  1033. )
  1034. ; **** Wich parts should get installed: driver &-| CanonStudio?
  1035. (set studio (askoptions (prompt #w-studio)
  1036.     (help #w-studio-help)
  1037.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3)
  1038.     (default (if (> diskbased 1) %111 %111))  ; use 111 for second %110 if deletion is wanted as default for non-single floppy systems
  1039.     )
  1040. )
  1041. ; **** determine max. meter for complete()
  1042. (set n 0)
  1043. (while (set size (select n 5    ; delete
  1044.     42       ; driver
  1045.     21       ; application
  1046.     0 ))
  1047. (
  1048.     (if (IN studio n)
  1049.     (
  1050.         (set total (+ total size))
  1051.     ))
  1052.     (set n (+ n 1))
  1053. ))
  1054. (set disknumber 1)
  1055. (if (> diskbased 0)
  1056. (
  1057.     (set format 0)
  1058.     (if (IN studio 1)
  1059.     (
  1060.         (set format 1)
  1061.     ))
  1062.     (if (IN studio 2)
  1063.     (
  1064.         (set format 1)
  1065.     ))
  1066.     (if (> format 0)
  1067.     (
  1068.         (message (#format format))
  1069.     ))
  1070. ))
  1071. (set @default-dest "")
  1072. (if (> studio 0)
  1073. (
  1074.     (copyfiles (source "CanonDisk_Install:bin/check")
  1075.         (dest "T:")
  1076.         (nogauge)
  1077.     )
  1078.     (copyfiles (source "CanonDisk_Install:bin/lx")
  1079.         (dest "T:")
  1080.         (nogauge)
  1081.     )
  1082.     (set exerr (run "T:lx n"))
  1083.     (if (> exerr 0)
  1084.     (
  1085.         (abort (#abortunpack "-none-"))
  1086.     ))
  1087. )
  1088. (
  1089.     (abort #abortnochoice)
  1090. ))
  1091. ; **** delete old drivers/prefs
  1092. (if (IN studio 0)
  1093. (
  1094.     (set addmeter    1)
  1095.     (Meter)
  1096.     (if (askbool (prompt (#cfm-delete))
  1097.         (help (#cfm-delete-help ))
  1098.         (choices #cfm-delete-1 #cfm-delete-2)
  1099.         (default 1))
  1100.     (
  1101.         (set n 0)
  1102.         (while (set thisfile (select n  "Beep"
  1103.             "Time"
  1104.             "ResX"
  1105.             "ResY"
  1106.             "Dry"
  1107.             "GAdj"
  1108.             "CAdj"
  1109.             "MAdj"
  1110.             "YAdj"
  1111.             "GDit"
  1112.             "CDit"
  1113.             "MDit"
  1114.             "YDit"
  1115.             "Copies"
  1116.             "Type"
  1117.             "Type0"
  1118.             "Type1"
  1119.             "Type2"
  1120.             "Type3"
  1121.             "Type4"
  1122.             "Type5"
  1123.             "Type6"
  1124.             "Type7"
  1125.             "Type8"
  1126.             "Type9"
  1127.             "Type10"
  1128.             "Perf"
  1129.             "Mirror"
  1130.             "Sep"
  1131.             "Magenta"
  1132.             "Yellow"
  1133.             "Orient"
  1134.             "TDirect"
  1135.             "Top"
  1136.             "Tab"
  1137.             "Super"
  1138.             "Form"
  1139.             "Color"
  1140.             "GEmu"
  1141.             "TEmu"
  1142.             "Strip"
  1143.             "Quiet"
  1144.             "KAdj"
  1145.             "KDit"
  1146.             "GFeed"
  1147.             "PageLen"
  1148.             "GDirect"
  1149.             "Quality"
  1150.             "Compress"
  1151.             "Symbol"
  1152.             "CDitAlg"
  1153.             "GDitAlg"
  1154.             "Emu"
  1155.             "Mode"
  1156.             "Font"
  1157.             "FONT0"
  1158.             "FONT1"
  1159.             "FONT2"
  1160.             "FONT3"
  1161.             "FONT4"
  1162.             "FONT5"
  1163.             "FONT6"
  1164.             "FONT7"
  1165.             "FONT8"
  1166.             "FONT9"
  1167.             "FONT10"
  1168.             "FONTDAT"
  1169.             "OVERPAGE"
  1170.             "NOSTRIP"
  1171.             "ORIENT"
  1172.             "NODISP"
  1173.             "BJ130Pref"
  1174.             "BJC880Pref"
  1175.             "LBPPref"
  1176.             "BJ300Pref"
  1177.             "BJ5-230Pref"
  1178.             "BJECPref"
  1179.             "" ))
  1180.         (
  1181.             (set n (+ n 1))
  1182.             (if (exists (cat "ENV:Canon" thisfile))
  1183.             (
  1184.                 (delete (cat "ENV:Canon" thisfile))
  1185.             ))
  1186.             (if (exists (cat "ENVARC:Canon" thisfile))
  1187.             (
  1188.                 (delete (cat "ENVARC:Canon" thisfile))
  1189.             ))
  1190.         ))
  1191.         (set addmeter    1)
  1192.         (Meter)
  1193.         (set n 0)
  1194.         (while (set thisfile (select n  "CanonBJ-EC"
  1195.             "CanonBJ5-2x0"
  1196.             "CanonBJ5-230"
  1197.             "CanonBJ300"
  1198.             "CanonLBP"
  1199.             "CanonBJC880"
  1200.             "CanonBJ130"
  1201.             "" ))
  1202.         (
  1203.             (set n (+ n 1))
  1204.             (if (exists (cat "devs:printers/" thisfile))
  1205.             (
  1206.                 (delete (cat "devs:printers/" thisfile))
  1207.             ))
  1208.             (if (exists (cat "printers:" thisfile) (noreq))
  1209.             (
  1210.                 (delete (cat "printers:" thisfile))
  1211.             ))
  1212.         ))
  1213.         (set addmeter    1)
  1214.         (Meter)
  1215.         (set n 0)
  1216.         (while (set thisfile (select n  "CanonPref"
  1217.             "CanonPref.info"
  1218.             "CanonBJ130Pref"
  1219.             "CanonBJ130Pref.info"
  1220.             "CanonBJ300Pref"
  1221.             "CanonBJ300Pref.info"
  1222.             "CanonBJ5-230Pref"
  1223.             "CanonBJ5-230Pref.info"
  1224.             "CanonBJECPref"
  1225.             "CanonBJECPref.info"
  1226.             "CanonLBPPref"
  1227.             "CanonLBPPref.info"
  1228.             "CanonCaPSLPref"
  1229.             "CanonCaPSLPref.info"
  1230.             "BJ-FontShop"
  1231.             "BJ-FontShop.info"
  1232.             "CaPSL-FontShop"
  1233.             "CaPSL-FontShop.info"
  1234.             "LBP-FontShop"
  1235.             "LBP-FontShop.info"
  1236.             "SetupBJL-BJC4100"
  1237.             "SetupBJL-BJC4100.info"
  1238.             "SetupBJL-BJC210"
  1239.             "SetupBJL-BJC210.info"
  1240.             "SetupBJL-BJC4xxx"
  1241.             "SetupBJL-BJC4xxx.info"
  1242.             "SetupBJL-BJC2xx"
  1243.             "SetupBJL-BJC2xx.info"
  1244.             "" ))
  1245.         (
  1246.             (set n (+ n 1))
  1247.             (if (exists (cat "sys:prefs/" thisfile))
  1248.             (
  1249.                 (delete (cat "sys:prefs/" thisfile))
  1250.             ))
  1251.             (if (exists (cat "sys:prefs/" thisfile ".info"))
  1252.             (
  1253.                 (delete (cat "sys:prefs/" thisfile ".info"))
  1254.             ))
  1255.         ))
  1256.         (set addmeter    1)
  1257.         (Meter)
  1258.     )
  1259.     (
  1260.         (set addmeter    3)
  1261.         (Meter)
  1262.     ))
  1263. ))
  1264. ; **** install driver
  1265. (if (IN studio 1)
  1266. (
  1267.     (set addmeter    1)
  1268.     (Meter)
  1269.     ; ask for kind of printer 
  1270.     (set emul   (askchoice (prompt #w-emul)
  1271.         (help #w-emul-help)
  1272.             (choices "Canon BJ       (BJ Emulation)"    ; 0
  1273.                 "Canon BJC      (Epson Emulation)"    ; 1
  1274.                 "Canon LBP      (CaPSL Emulation)"    ; 2
  1275.                 "Canon LBP      (PCL   Emulation)"    ; 3
  1276.                 "Canon A1 or A2 (CaPSL Emulation)"    ; 4
  1277.                 "Canon BJC 880  (CaPSL Emulation)"    ; 5
  1278.             )
  1279.             (default 1)
  1280.     ))
  1281.     (set addmeter    1)
  1282.     (Meter)
  1283.     (set pagestreamv2 "")
  1284.     (set driverpath "")
  1285.     (set drivername "")
  1286.     (set prefpath "")
  1287.     (set prefname "")
  1288.     (set preffilename "")
  1289.     (set envname "")
  1290.     (set presetname "")
  1291.     (set setupname "")
  1292.     (set setuptool "")
  1293.     (set driversize 0)
  1294.  
  1295.     (set addmeter    1)
  1296.     (Meter)
  1297.  
  1298.     (if (= emul 0)
  1299.     (  ; CanonBJ
  1300.         (set brand  (askchoice (prompt #w-driver)
  1301.             (help #w-driver-help)
  1302.             (choices "Canon BJ 5, 10, 10e, 10ex, 20"    ; 0
  1303.                 "Canon BJ 30 (Epson Emulation)"        ; 1
  1304.                 "Canon BJ 100"                ; 2
  1305.                 "Canon BJ 130, 130e"            ; 3
  1306.                 "Canon BJ 200, 200e"            ; 4
  1307.                 "Canon BJ 200ex"            ; 5
  1308.                 "Canon BJ 230"                ; 6
  1309.                 "Canon BJ 300, 330"            ; 7
  1310.             )
  1311.             (default 0)
  1312.         ))
  1313.  
  1314.         (if (= brand 1)
  1315.         (  ; CanonBJ30
  1316.             (set driverpath "CanonDisk_Install:drivers/")
  1317.             (set drivername "CanonBJEC")
  1318.             (set prefpath "CanonDisk_Install:prefs/")
  1319.             (set prefname "CanonBJECPref")
  1320.             (set driversize 56566)   ; ~46936+6558+3072
  1321.             (set envname "CanonBJECPref")
  1322.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC30")
  1323.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
  1324.         ))
  1325.  
  1326.         (if (= brand 0)
  1327.         (  ; BJ 100 or BJ 5..10..20
  1328.             (set driverpath "CanonDisk_Install:drivers/")
  1329.             (set drivername "CanonBJ5-230")
  1330.             (set prefpath "CanonDisk_Install:prefs/")
  1331.             (set prefname "CanonBJ5-230Pref")
  1332.             (set driversize 29126)   ; ~24648+1406+3072
  1333.             (set envname "CanonBJ5-230Pref")
  1334.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJ10")
  1335.         ))
  1336.         (if (OR (= brand 3))
  1337.         (
  1338.             (abort #sorry)
  1339.         ))
  1340.         (if (OR (= brand 2) (OR (= brand 4) (OR (= brand 5) (= brand 6))))
  1341.         (  ; CanonBJ2x0
  1342.             (set driverpath "CanonDisk_Install:drivers/")
  1343.             (set drivername "CanonBJ5-230")
  1344.             (set prefpath "CanonDisk_Install:prefs/")
  1345.             (set prefname "CanonBJ5-230Pref")
  1346.             (set driversize 29126)   ; ~24648+1406+3072
  1347.             (set envname "CanonBJ5-230Pref")                 ; default preset
  1348.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJ200") ; usualy not installed... for future reasons...
  1349.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
  1350.             (if (= brand 6)
  1351.             (
  1352.                 (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ230.printer")
  1353.             ))
  1354.         ))
  1355.         (if (= brand 7)
  1356.         (  ; CanonBJ300
  1357.             (set driverpath "CanonDisk_Install:drivers/")
  1358.             (set drivername "CanonBJ300")
  1359.             (set prefpath "CanonDisk_Install:prefs/")
  1360.             (set prefname "CanonBJ300Pref")
  1361.             (set driversize 24462)   ; ~19984+1406+3072
  1362.             (set envname "CanonBJ300Pref")
  1363.         ))
  1364.     ))
  1365.  
  1366.     (if (= emul 1)
  1367.     (  ; CanonBJC
  1368.         (set brand  (askchoice (prompt #w-driver)
  1369.             (help #w-driver-help)
  1370.             (choices "Canon BJC 70"                ; 0
  1371.                 "Canon BJC 150"                ; 1
  1372.                 "Canon BJC 210"                ; 2
  1373.                 "Canon BJC 240"                ; 3
  1374.                 "Canon BJC 600, 600e"            ; 4
  1375.                 "Canon BJC 610, 620"            ; 5
  1376.                 "Canon BJC 800, 820"            ; 6
  1377.                 "Canon BJC 4000"            ; 7
  1378.                 "Canon BJC 4100"            ; 8
  1379.                 "Canon BJC 4200, 4550"            ; 9
  1380.                 "Canon BJC 880"                         ; 10
  1381.             )
  1382.             (default 9)
  1383.         ))
  1384.  
  1385.         (if (= brand 0)
  1386.         (  ; CanonBJC70
  1387.             (set driverpath "CanonDisk_Install:drivers/")
  1388.             (set drivername "CanonBJEC")
  1389.             (set prefpath "CanonDisk_Install:prefs/")
  1390.             (set prefname "CanonBJECPref")
  1391.             (set driversize 55790)   ; ~46160+6558+3072
  1392.             (set envname "CanonBJECPref")
  1393.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC70")
  1394.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1395.         ))
  1396.  
  1397.         (if (= brand 1)
  1398.         (  ; CanonBJC150
  1399.             (set driverpath "CanonDisk_Install:drivers/")
  1400.             (set drivername "CanonBJEC")
  1401.             (set prefpath "CanonDisk_Install:prefs/")
  1402.             (set prefname "CanonBJECPref")
  1403.             (set driversize 55790)   ; ~46160+6558+3072
  1404.             (set envname "CanonBJECPref")
  1405.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC150")
  1406.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1407.             (set setupname "SetupBJL-BJC1xx")
  1408.         ))
  1409.         (if (= brand 2)
  1410.         (  ; CanonBJC210
  1411.             (set driverpath "CanonDisk_Install:drivers/")
  1412.             (set drivername "CanonBJEC")
  1413.             (set prefpath "CanonDisk_Install:prefs/")
  1414.             (set prefname "CanonBJECPref")
  1415.             (set driversize 55790)   ; ~46160+6558+3072
  1416.             (set envname "CanonBJECPref")
  1417.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC210")
  1418.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1419.             (set setupname "SetupBJL-BJC2xx")
  1420.         ))
  1421.         (if (= brand 3)
  1422.         (  ; CanonBJC240
  1423.             (set driverpath "CanonDisk_Install:drivers/")
  1424.             (set drivername "CanonBJEC")
  1425.             (set prefpath "CanonDisk_Install:prefs/")
  1426.             (set prefname "CanonBJECPref")
  1427.             (set driversize 55790)   ; ~46160+6558+3072
  1428.             (set envname "CanonBJECPref")
  1429.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC240")
  1430.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1431.             (set setupname "SetupBJL-BJC2xx")
  1432.             (set setuptool "USEPOWERON")
  1433.         ))
  1434.         (if (= brand 4)
  1435.         (  ; CanonBJC600
  1436.             (set driverpath "CanonDisk_Install:drivers/")
  1437.             (set drivername "CanonBJEC")
  1438.             (set prefpath "CanonDisk_Install:prefs/")
  1439.             (set prefname "CanonBJECPref")
  1440.             (set driversize 55790)   ; ~46160+6558+3072
  1441.             (set envname "CanonBJECPref")
  1442.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
  1443.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1444.         ))
  1445.  
  1446.         (if (= brand 5)
  1447.         (  ; CanonBJC610
  1448.             (set driverpath "CanonDisk_Install:drivers/")
  1449.             (set drivername "CanonBJEC")
  1450.             (set prefpath "CanonDisk_Install:prefs/")
  1451.             (set prefname "CanonBJECPref")
  1452.             (set driversize 55790)   ; ~46160+6558+3072
  1453.             (set envname "CanonBJECPref")
  1454.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
  1455.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC610.printer")
  1456.         ))
  1457.  
  1458.         (if (= brand 6)
  1459.         (  ; CanonBJC800, 820
  1460.             (set driverpath "CanonDisk_Install:drivers/")
  1461.             (set drivername "CanonBJEC")
  1462.             (set prefpath "CanonDisk_Install:prefs/")
  1463.             (set prefname "CanonBJECPref")
  1464.             (set driversize 55790)   ; ~46160+6558+3072
  1465.             (set envname "CanonBJECPref")
  1466.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC800")
  1467.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1468.         ))
  1469.  
  1470.         (if (= brand 7)
  1471.         (  ; CanonBJC4000
  1472.             (set driverpath "CanonDisk_Install:drivers/")
  1473.             (set drivername "CanonBJEC")
  1474.             (set prefpath "CanonDisk_Install:prefs/")
  1475.             (set prefname "CanonBJECPref")
  1476.             (set driversize 55790)   ; ~46160+6558+3072
  1477.             (set envname "CanonBJECPref")
  1478.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
  1479.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4000.printer")
  1480.         ))
  1481.         (if (= brand 8)
  1482.         (  ; CanonBJC4100
  1483.             (set driverpath "CanonDisk_Install:drivers/")
  1484.             (set drivername "CanonBJEC")
  1485.             (set prefpath "CanonDisk_Install:prefs/")
  1486.             (set prefname "CanonBJECPref")
  1487.             (set driversize 55790)   ; ~46160+6558+3072
  1488.             (set envname "CanonBJECPref")
  1489.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
  1490.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4100.printer")
  1491.             (set setupname "SetupBJL-BJC4xxx")
  1492.         ))
  1493.         (if (= brand 9)
  1494.         (  ; CanonBJC4200, 4550
  1495.             (set driverpath "CanonDisk_Install:drivers/")
  1496.             (set drivername "CanonBJEC")
  1497.             (set prefpath "CanonDisk_Install:prefs/")
  1498.             (set prefname "CanonBJECPref")
  1499.             (set driversize 55790)   ; ~46160+6558+3072
  1500.             (set envname "CanonBJECPref")
  1501.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
  1502.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4100.printer")
  1503.             (set setupname "SetupBJL-BJC4xxx")
  1504.             (set setuptool "USEPOWERON")
  1505.         ))
  1506.  
  1507.         (if (= brand 10)
  1508.         (  ; CanonBJC880
  1509.             (abort #sorry)
  1510.         ))
  1511.     ))
  1512.  
  1513.     (if (= emul 2)
  1514.     (  ; CanonLBP CaPSL
  1515.         (set brand  (askchoice (prompt #w-driver)
  1516.             (help #w-driver-help)
  1517.             (choices "Canon LBP         (CaPSL 3)" ; 0
  1518.                 "Canon LBP (600dpi, CaPSL 4)" ; 1
  1519.             )
  1520.             (default 0)
  1521.         ))
  1522.         (abort #sorry)
  1523.     ))
  1524.     (if (= emul 3)
  1525.     (  ; Canon LBP PCL Emulation
  1526.         (abort #sorry)
  1527.     ))
  1528.     (if (= emul 4)
  1529.     (  ; Canon A1+A2
  1530.         (abort #sorry)
  1531.     ))
  1532.     (if (= emul 5)
  1533.     (  ; Canon BJC 880
  1534.         (abort #sorry)
  1535.     ))
  1536.  
  1537.  
  1538.     ; find the devs:printers directory
  1539.     (set driverdrawer "Devs:Printers")
  1540.     (set addmeter    1)
  1541.     (Meter)
  1542.     (if (= @user-level 2)
  1543.     (
  1544.         (set driverdrawer (askdir (prompt #ask-sys)
  1545.             (help #ask-sys-help)
  1546.             (default driverdrawer))
  1547.         )
  1548.     ))
  1549.     (set addmeter    1)
  1550.     (Meter)
  1551.     (if (not (exists driverdrawer))
  1552.     (
  1553.         (set driverdrawer (askdir (prompt #ask-sys)
  1554.             (help #ask-sys-help)
  1555.             (default driverdrawer))
  1556.         )
  1557.     ))
  1558.     (set addmeter    1)
  1559.     (Meter)
  1560.     (set targetsize (getdiskspace driverdrawer))
  1561.      (if (< targetsize driversize)
  1562.     (
  1563.         (if (<> (getdevice driverdrawer) "RAM")
  1564.         (
  1565.             (message (#yellspace driversize (getdevice driverdrawer)))
  1566.             (set n 0)
  1567.             (set flag 0)
  1568.             (while (set thisfile (select n  #tdel0
  1569.                 #tdel1
  1570.                 #tdel2
  1571.                 #tdel3
  1572.                 #tdel4
  1573.                 #tdel5
  1574.                 #tdel6
  1575.                 #tdel7
  1576.                 #tdel8
  1577.                 #tdel9
  1578.                 #tdel10
  1579.                 #tdel11
  1580.                 #tdel12
  1581.                 #tdel13
  1582.                 #tdel14
  1583.                 #tdel15
  1584.                 #tdel16
  1585.                 "" ))
  1586.             (
  1587.                 (set thiscomment (select n  #del0
  1588.                     #del1
  1589.                     #del2
  1590.                     #del3
  1591.                     #del4
  1592.                     #del5
  1593.                     #del6
  1594.                     #del7
  1595.                     #del8
  1596.                     #del9
  1597.                     #del10
  1598.                     #del11
  1599.                     #del12
  1600.                     #del13
  1601.                     #del14
  1602.                     #del15
  1603.                     #del16
  1604.                     "" ))
  1605.                 (set n (+ n 1))
  1606.                 (set targetsize (getdiskspace driverdrawer))
  1607.                 (if (< targetsize driversize)
  1608.                 (
  1609.                     (set devthisfile (tackon (cat (getdevice driverdrawer) ":") thisfile))
  1610.                     (if (exists devthisfile)
  1611.                     (
  1612.                         (set flag 1)
  1613.                         (if (askbool (prompt (#full-delete devthisfile thiscomment))
  1614.                             (help (#full-delete-help ))
  1615.                             (choices #full-delete-1 #full-delete-2)
  1616.                             (default 1))
  1617.                         (
  1618.                             (protect devthisfile "+rwed")
  1619.                             (delete  devthisfile)
  1620.                             (protect (cat devthisfile ".info") "+rwed")
  1621.                             (delete (cat devthisfile ".info"))
  1622.                         ))
  1623.                     ))
  1624.                 ))
  1625.             ))
  1626.             (set targetsize (getdiskspace driverdrawer))
  1627.             (if (< targetsize driversize)
  1628.             (
  1629.                 (if (= flag 1)
  1630.                 (
  1631.                     (abort (#tofull (getdevice driverdrawer) driversize))
  1632.                 )
  1633.                 (
  1634.                     (abort (#tofull2 (getdevice driverdrawer) driversize))
  1635.                 ))
  1636.             ))
  1637.         ))
  1638.     ))
  1639.     (set addmeter    1)
  1640.     (Meter)
  1641.     (if (<> (exists "devs:printer.device") 1)
  1642.     (
  1643.         (message #nodevice)
  1644.     ))
  1645.     (if (<> (exists "devs:parallel.device") 1)
  1646.     (
  1647.         (message #nopardevice)
  1648.     ))
  1649.     (if (<> (exists "ENV:") 2)
  1650.     (
  1651.         (abort #noenv)
  1652.     ))
  1653.     (if (<> (exists "ENVARC:") 2)
  1654.     (
  1655.         (abort #noenvarc)
  1656.     ))
  1657.     (set addmeter    1)
  1658.     (Meter)
  1659.     ; **** find the sys:prefs directory
  1660.     (set prefdisk ("SYS:Prefs"))
  1661.     (if (> diskbased 0)
  1662.     (
  1663.         (set prefdisk (askdir (prompt (#ask-prefsdisk disknumber))
  1664.             (help #ask-prefs-help)
  1665.             (default "Canon:"))
  1666.         )
  1667.         (set firstdisk prefdisk)
  1668.         (set prefdisk (tackon prefdisk "Prefs"))
  1669.         (if (<> (exists prefdisk) 2)
  1670.         (
  1671.             (makedir (prefdisk)
  1672.                 (infos)
  1673.             )
  1674.         ))
  1675.     )
  1676.     (
  1677.         (if (exists "sys:preferences")
  1678.         (
  1679.             (set prefdisk ("SYS:Preferences"))
  1680.         ))
  1681.         (if (exists "SYS:Prefs")
  1682.         (
  1683.             (set prefdisk ("SYS:Prefs"))
  1684.         ))
  1685.         (set prefdisk (askdir (prompt #ask-prefs)
  1686.             (help #ask-prefs-help)
  1687.             (default prefdisk))
  1688.         )
  1689.     ))
  1690.     (set addmeter    1)
  1691.     (Meter)
  1692.     (if (not (exists prefdisk))
  1693.     (
  1694.         (set prefdisk (askdir (prompt #ask-prefs)
  1695.             (help #ask-prefs-help)
  1696.             (default prefdisk))
  1697.         )
  1698.     ))
  1699.     (set addmeter    1)
  1700.     (Meter)
  1701.     (if (<> pagestreamv2 "")
  1702.     (
  1703.         (if (askbool (prompt (#pagestream))
  1704.             (help (#pagestream-help ))
  1705.             (choices #pagestream-yes #pagestream-no))
  1706.         (
  1707.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1708.                 (help #ask-pagestream-help)
  1709.                 (default "WORK:")
  1710.             ))
  1711.             (if( exists (pagedrawer))
  1712.             (
  1713.                 (working #waitmsg)
  1714.                 (set exerr (run (cat "T:lx x " pagestreamv2 ".lzh" " \"" pagedrawer "\"")))
  1715.                 (if (> exerr 0)
  1716.                 (
  1717.                     (abort (#abortunpack prefname))
  1718.                 ))
  1719.             ))
  1720.         ))
  1721.     ))
  1722.     (working #waitmsg)
  1723.     (makeassign "DRIVERPARENT" prefdisk)
  1724.     (set addmeter    1)
  1725.     (Meter)
  1726.     (set exerr (run (cat "T:lx x " driverpath drivername ".lzh \"" driverdrawer "\"")))
  1727.     (if (> exerr 0)
  1728.     (
  1729.         (abort (#abortunpack drivername))
  1730.     ))
  1731.     (set addmeter    5)
  1732.     (Meter)
  1733.     (set exerr (run (cat "T:lx x " prefpath prefname ".lzh \"DRIVERPARENT:\"")))
  1734.     (if (> exerr 0)
  1735.     (
  1736.         (abort (#abortunpack prefname))
  1737.     ))
  1738.     (set addmeter    6)
  1739.     (Meter)
  1740.     (if (<> setupname "")
  1741.     (
  1742.         (set exerr (run (cat "T:lx x " prefpath setupname ".lzh \"DRIVERPARENT:\"")))
  1743.         (if (> exerr 0)
  1744.         (
  1745.             (abort (#abortunpack setupname))
  1746.         ))
  1747.  
  1748.         (if (<> setuptool "")
  1749.         (
  1750.             (tooltype (prompt "")
  1751.                 (help "")
  1752.                 (dest (cat "DRIVERPARENT:" setupname))
  1753.                 (settooltype (setuptool) "ON")
  1754.                 (noposition))
  1755.         ))
  1756.     ))
  1757.     (if (exists "ENV:")
  1758.     (
  1759.         (delete (cat "ENV:" envname))
  1760.     ))
  1761.     (if (exists "ENVARC:")
  1762.     (
  1763.         (delete (cat "ENVARC:" envname))
  1764.     ))
  1765.     (set addmeter    3)
  1766.     (Meter)
  1767.     (if (<> presetname "")
  1768.     (
  1769.         (if (= (exists presetname) 1)
  1770.         (
  1771.             (copyfiles (source presetname)
  1772.                 (dest "ENV:")
  1773.                 (newname envname)
  1774.                 (nogauge)
  1775.             )
  1776.  
  1777.         )
  1778.         (
  1779.             (set secondname (cat "T:" (fileonly presetname)))
  1780.             (set presetname (cat presetname ".lzh"))
  1781.             (if (= (exists presetname) 1)
  1782.             (
  1783.                 (set exerr (run (cat "T:lx x " presetname " T:")))
  1784.                 (if (> exerr 0)
  1785.                 (
  1786.                     (abort (#abortunpack presetname))
  1787.                 ))
  1788.                 (copyfiles (source secondname)
  1789.                     (dest "ENV:")
  1790.                     (newname envname)
  1791.                     (nogauge)
  1792.                 )
  1793.             ))
  1794.         ))
  1795.         (if (= (exists (cat "ENV:" envname)) 1)
  1796.         (
  1797.             (if (exists "ENVARC:")
  1798.             (
  1799.                 (copyfiles (source (cat "ENV:" envname))
  1800.                     (dest "ENVARC:")
  1801.                     (newname envname)
  1802.                     (nogauge)
  1803.                 )
  1804.             ))
  1805.         ))
  1806.     ))
  1807.     (set addmeter    3)
  1808.     (Meter)
  1809.     (if (> diskbased 0)
  1810.     (
  1811.         (set docdisk prefdisk)
  1812.     )
  1813.     (
  1814.         (set docdisk (askdir (prompt #ask-docs)
  1815.             (help #ask-docs-help)
  1816.             (default prefdisk))
  1817.         )
  1818.     ))
  1819.     (set addmeter    2)
  1820.     (Meter)
  1821.     (if (not (exists docdisk))
  1822.     (
  1823.         (set docdisk (askdir (prompt #ask-docs)
  1824.             (help #ask-docs-help)
  1825.             (default docdisk))
  1826.         )
  1827.     ))
  1828.     (set addmeter    1)
  1829.     (Meter)
  1830.     (working #waitmsg)
  1831.     (makeassign "DRIVERPARENT" docdisk)
  1832.     (set targetsize (getdiskspace docdisk))
  1833.     (if (< targetsize 120000)
  1834.     (
  1835.         (if (<> (getdevice docdisk) "RAM")
  1836.         (
  1837.             (abort #abortdocs)
  1838.         ))
  1839.     ))
  1840.     (set addmeter    1)
  1841.     (Meter)
  1842.     (set exerr (run (cat "T:lx x CanonDisk_Install:docs/driver" docfile ".lzh \"DRIVERPARENT:\"")))
  1843.     (if (> exerr 0)
  1844.     (
  1845.         (abort (#abortunpack (cat "Driver" docfile ".lzh")))
  1846.     ))
  1847.     (set addmeter    5)
  1848.     (Meter)
  1849.     (makeassign "DRIVERPARENT")
  1850. ))
  1851. (if (IN studio 2)  ; Studio Application Prgm.
  1852. (
  1853.     (set addmeter    1)
  1854.     (Meter)
  1855.     (if (> diskbased 0)
  1856.     (
  1857.         (if (<> firstdisk "")
  1858.         (
  1859.             (set target firstdisk)
  1860.         )
  1861.         (
  1862.             (set target (askdir (prompt (#ask-studiodisk disknumber))
  1863.                 (default "Canon:")
  1864.                 (help #ask-studio-help))
  1865.             )
  1866.         ))
  1867.     )
  1868.     (
  1869.         (set guessdrawer (getassign "WORK" "d"))
  1870.         (if (= guessdrawer "")
  1871.         (
  1872.             (set guessdrawer (getassign "DH0" "d"))
  1873.             (if (= guessdrawer "")
  1874.             (
  1875.                 (set guessdrawer (getassign "DH2" "d"))
  1876.                 (if (= guessdrawer "")
  1877.                 (
  1878.                     (set guessdrawer "SYS:")
  1879.                 ))
  1880.             ))
  1881.         ))
  1882.         (set target (askdir (prompt #ask-studio)
  1883.             (help #ask-studio-help)
  1884.             (default guessdrawer))
  1885.         )
  1886.     ))
  1887.     (set addmeter    1)
  1888.     (Meter)
  1889.     (set @default-dest target)
  1890.     (working #waitmsg)
  1891.     (set targetsize (getdiskspace target))
  1892.     (if (< targetsize 350000)
  1893.     (
  1894.         (if (<> (getdevice target) "RAM")
  1895.         (
  1896.             (abort (#tofullstudio (getdevice target) 350000))
  1897.         ))
  1898.     ))
  1899.     (set addmeter    1)
  1900.     (Meter)
  1901.     (makeassign "STUDIOPARENT" target)
  1902.     (set target (tackon target "CanonStudio"))
  1903.     (if (= (exists target) 1)
  1904.     (
  1905.         (rename target (cat target "_V1.xx_OLD"))
  1906.         (if (= (exists (cat target ".info")) 1)
  1907.         (
  1908.             (rename (cat target ".info") (cat target "_V1.xx_OLD.info"))
  1909.         ))
  1910.     ))
  1911.     (set addmeter    3)
  1912.     (Meter)
  1913.     (working #waitmsg)
  1914.     (set exerr (run (cat "T:lx x CanonDisk_Install:CanonStudio/CanonStudio.lzh \"STUDIOPARENT:\"")))
  1915.     (if (> exerr 0)
  1916.     (
  1917.         (abort (#abortunpack "CanonStudio.lzh"))
  1918.     ))
  1919.     (set addmeter    7)
  1920.     (Meter)
  1921.     (set exerr (run (cat "T:lx x CanonDisk_Install:docs/CanonStudio" docfile ".lzh \"STUDIOPARENT:\"")))
  1922.     (if (> exerr 0)
  1923.     (
  1924.         (abort (#abortunpack (cat "CanonStudio" docfile ".lzh")))
  1925.     ))
  1926.     (makeassign "STUDIOPARENT")
  1927.     (set addmeter    7)
  1928.     (Meter)
  1929. ))
  1930.  
  1931.  
  1932.  
  1933. (if (IN studio 1)
  1934. (
  1935.     (set addmeter    1)
  1936.     (Meter)
  1937.     (message (#finalmsg drivername (tackon prefdisk prefname)))
  1938.     (if (exists "sys:prefs/printer")
  1939.     (
  1940.         (run "sys:prefs/printer")
  1941.     )
  1942.     (
  1943.         (if (exists "sys:prefs/preferences")
  1944.         (
  1945.             (run "sys:prefs/preferences")
  1946.         ))
  1947.     ))
  1948.     (set addmeter    1)
  1949.     (Meter)
  1950.     (run "T:check")
  1951.     (delete "T:check")
  1952.     (if (not (exists "RAM:StudioTemp"))
  1953.     (
  1954.         (message #wrongdither)
  1955.         (if (exists "sys:prefs/printergfx")
  1956.         (
  1957.             (run "sys:prefs/printergfx")
  1958.         ))
  1959.     )
  1960.     ( ; else
  1961.         (delete "RAM:StudioTemp")
  1962.     ))
  1963.     (set addmeter    1)
  1964.     (Meter)
  1965.     (run (cat "\""
  1966.         (tackon prefdisk prefname)
  1967.         "\""))
  1968.     (set addmeter    1)
  1969.     (Meter)
  1970. ))
  1971. (if (> studio 0)
  1972. (
  1973.     (run "T:lx n")
  1974.     (delete "T:lx")
  1975.     (delete "T:check")
  1976.     (delete "RAM:StudioTemp")
  1977. ))
  1978. (makeassign "CanonDisk_Install")
  1979. (complete 100)
  1980.